home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
graphic
/
tpega.zip
/
GPPARMS.P
< prev
next >
Wrap
Text File
|
1986-02-03
|
2KB
|
64 lines
{ }
{ EGA Graphic Primitive for Turbo Pascal 3.01A, Version 03FEB86. }
{ (C) 1986 by Kent Cedola, 2015 Meadow Lake Ct., Norfolk, VA, 23518 }
{ }
var
GDTYPE: Integer;
GDOTHER: Integer;
GDMEMORY: Integer;
GDMAXCOL: Integer;
GDMAXROW: Integer;
GDMAXPAL: Integer;
GDMAXCLR: Integer;
GDCOLOR: Integer;
GDMERGE: Integer;
GDSTYLE: ^Byte;
GDSHADE: ^Byte;
GDSHADE1: array [0..65] of byte;
GDASPC1: Integer;
GDASPC2: Integer;
GDCUR_X: Integer;
GDCUR_Y: Integer;
GDGSEG: Integer;
GDGSADR: Integer;
GDWD_X1: Integer;
GDWD_X2: Integer;
GDWD_X3: Integer;
GDWD_Y1: Integer;
GDWD_Y2: Integer;
GDWD_Y3: Integer;
GDVW_X1: Integer;
GDVW_X2: Integer;
GDVW_X3: Integer;
GDVW_Y1: Integer;
GDVW_Y2: Integer;
GDVW_Y3: Integer;
GDC_FLG: Integer;
GDS_FLG: Integer;
GDW_FLG: Boolean;
GDCURX1: Integer;
GDCURY1: Integer;
procedure GPPARMS;
begin
inline
($B4/$12 /$B3/$10 /$B9/$FFFF /$CD/$10 /$83/$F9/$FF /$74/$4B
/$89/$0E/GDOTHER /$8A/$E9 /$8A/$C3 /$25/>$03 /$40 /$B1/$06 /$D3/$E0
/$A3/GDMEMORY /$B8/>$04 /$0A/$DB /$74/$03 /$B8/>$10 /$A3/GDMAXCLR
/$B8/>$10 /$A3/GDMAXPAL /$B8/$027F /$A3/GDMAXCOL /$B8/$015D /$A3/GDMAXROW
/$80/$FD/$09 /$74/$18 /$80/$FD/$06 /$74/$18 /$80/$FD/$0E /$74/$13
/$80/$FD/$05 /$74/$19 /$80/$FD/$0D /$74/$14 /$33/$C0 /$EB/$16 /$B8/>$05
/$EB/$11 /$B8/>$C7 /$A3/GDMAXROW /$B8/>$03 /$EB/$06 /$B8/>$04
/$A3/GDMAXPAL /$A3/GDTYPE);
GDGSEG := $A000;
GDGSADR := $7FF8;
end;